home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Questions & Answers / Q&A Programming Music / Legato options in timesheet < prev    next >
Text File  |  1998-10-26  |  3KB  |  138 lines
  1. LEGATO OPTIONS IN TIMESHEET
  2.  
  3. ; no legato, note duration is the same as beat
  4.  
  5. (def-section-timesheet sect-a
  6.   ;
  7.   ; timesheet
  8.   ;
  9.   with 1/1
  10.   ;           !---!---!---!---!---!---!---!---!
  11.   tonality   ".  . . .  .   . " '((dorian e 4) (mixolydian b 4))
  12.   strings    "----------------" 
  13.   beat 1/16 ; !---!---!---!---!
  14.   strings    "-       -       " '(ace acf bcf -bdf) with '(65)
  15. )
  16.  
  17. (play-file-p "Legatos"
  18.    strings sect-a
  19. )
  20.  
  21. ; legato n, percentual legato, 100=play full length
  22.  
  23. (def-section-timesheet sect-a
  24.   ;
  25.   ; timesheet
  26.   ;
  27.   with 1/1
  28.   ;           !---!---!---!---!---!---!---!---!
  29.   tonality   ".  . . .  .   . " '((dorian e 4) (mixolydian b 4))
  30.   strings    "----------------" 
  31.   beat 1/16 ; !---!---!---!---!
  32.   legato 100
  33.   strings    "-       -       " '(ace acf bcf -bdf) with '(65)
  34. )
  35.  
  36. (play-file-p "Legatos"
  37.    strings sect-a
  38. )
  39.  
  40. ; legato (fix 1/8), note duration is fixed 1/8
  41.  
  42. (def-section-timesheet sect-a
  43.   ;
  44.   ; timesheet
  45.   ;
  46.   with 1/1
  47.   ;           !---!---!---!---!---!---!---!---!
  48.   tonality   ".  . . .  .   . " '((dorian e 4) (mixolydian b 4))
  49.   strings    "----------------" 
  50.   beat 1/16 ; !---!---!---!---!
  51.   legato (fix 1/8)
  52.   strings    "-       -       " '(ace acf bcf -bdf) with '(65)
  53. )
  54.  
  55. (play-file-p "Legatos"
  56.    strings sect-a
  57. )
  58.  
  59. ; legato (add 1/16), note duration is max legato plus 1/16
  60.  
  61. (def-section-timesheet sect-a
  62.   ;
  63.   ; timesheet
  64.   ;
  65.   with 1/1
  66.   ;           !---!---!---!---!---!---!---!---!
  67.   tonality   ".  . . .  .   . " '((dorian e 4) (mixolydian b 4))
  68.   strings    "----------------" 
  69.   beat 1/16 ; !---!---!---!---!
  70.   legato (add 1/16)
  71.   strings    "-       -       " '(ace acf bcf -bdf) with '(65)
  72. )
  73.  
  74. (play-file-p "Legatos"
  75.    strings sect-a
  76. )
  77.  
  78. ; legato (sub 1/8), note duration is max legato minus 1/8
  79. ; (same is achieved by (add -1/8)
  80.  
  81. (def-section-timesheet sect-a
  82.   ;
  83.   ; timesheet
  84.   ;
  85.   with 1/1
  86.   ;           !---!---!---!---!---!---!---!---!
  87.   tonality   ".  . . .  .   . " '((dorian e 4) (mixolydian b 4))
  88.   strings    "----------------" 
  89.   beat 1/16 ; !---!---!---!---!
  90.   legato (sub 1/8)
  91.   strings    "-       -       " '(ace acf bcf -bdf) with '(65)
  92. )
  93.  
  94. (play-file-p "Legatos"
  95.    strings sect-a
  96. )
  97.  
  98. ; legato (times 1.1), note duration is max legato * 1.1
  99. ; (same is achieved by legato 110)
  100.  
  101. (def-section-timesheet sect-a
  102.   ;
  103.   ; timesheet
  104.   ;
  105.   with 1/1
  106.   ;           !---!---!---!---!---!---!---!---!
  107.   tonality   ".  . . .  .   . " '((dorian e 4) (mixolydian b 4))
  108.   strings    "----------------" 
  109.   beat 1/16 ; !---!---!---!---!
  110.   legato (times 1.1)
  111.   strings    "-       -       " '(ace acf bcf -bdf) with '(65)
  112. )
  113.  
  114. (play-file-p "Legatos"
  115.    strings sect-a
  116. )
  117.  
  118. ; legato (divide 2), note duration is max legato divided by 2 
  119. ; (same is achieved by legato 50)
  120.  
  121. (def-section-timesheet sect-a
  122.   ;
  123.   ; timesheet
  124.   ;
  125.   with 1/1
  126.   ;           !---!---!---!---!---!---!---!---!
  127.   tonality   ".  . . .  .   . " '((dorian e 4) (mixolydian b 4))
  128.   strings    "----------------" 
  129.   beat 1/16 ; !---!---!---!---!
  130.   legato (divide 2)
  131.   strings    "-       -       " '(ace acf bcf -bdf) with '(65)
  132. )
  133.  
  134. (play-file-p "Legatos"
  135.    strings sect-a
  136. )
  137.  
  138.